home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / DIR.BAS < prev    next >
BASIC Source File  |  1995-12-02  |  755b  |  36 lines
  1.  
  2.  
  3.     dim dir$(10,10)
  4.     files "c:\", "*.*", dir$(
  5.     qtyFiles = val(dir$(0, 0))
  6.     print qtyFiles; " files"
  7.     qtySubDirs = val(dir$(0, 1))
  8.     print qtySubDirs; " subdirectories"
  9.     print dir$(0, 2); dir$(0, 3)
  10.  
  11.     if qtyFiles = 0 then [skipFiles]
  12.  
  13.     for x = 1 to qtyFiles
  14.         dir$(x, 1) = right$("        " + dir$(x, 1), 9)
  15.     next x
  16.  
  17.     sort dir$(, 1, qtyFiles, 1
  18.  
  19.     for x =  qtyFiles to 1 step -1
  20.     print left$(dir$(x, 0) + "            ", 13) ; "  "; dir$(x, 1); "  "; dir$(x, 2)
  21.     next x
  22.  
  23. [skipFiles]
  24.  
  25.     print
  26.     print "Subdirectories:"
  27.     if qtySubDirs = 0 then [skipSubDirs]
  28.     for x = qtyFiles + 1  to qtyFiles + qtySubDirs
  29.         print dir$(x, 1)
  30.     next x
  31.  
  32. [skipSubDirs]
  33.  
  34.     end
  35.  
  36.